home *** CD-ROM | disk | FTP | other *** search
/ An Invitation to the Roland World of Music / Roland - An Invitation To The Roland World Of Music.bin / vb / vb30 / disk1 / wordwrap.fr_ / wordwrap.bin
Text File  |  1993-04-27  |  2KB  |  75 lines
  1. VERSION 2.00
  2. Begin Form frmWordWrap 
  3.    Caption         =   "WordWrap and Autosize"
  4.    Height          =   4740
  5.    Left            =   1650
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   4335
  8.    ScaleWidth      =   6000
  9.    Top             =   1395
  10.    Visible         =   0   'False
  11.    Width           =   6120
  12.    Begin CheckBox chkAutoSize 
  13.       Caption         =   "&AutoSize"
  14.       Height          =   495
  15.       Left            =   3840
  16.       TabIndex        =   4
  17.       Top             =   1560
  18.       Width           =   1215
  19.    End
  20.    Begin CheckBox chkWordWrap 
  21.       Caption         =   "&WordWrap"
  22.       Height          =   495
  23.       Left            =   3840
  24.       TabIndex        =   3
  25.       Top             =   2040
  26.       Width           =   1215
  27.    End
  28.    Begin CommandButton cmdClose 
  29.       Caption         =   "&Close"
  30.       Height          =   495
  31.       Left            =   3360
  32.       TabIndex        =   1
  33.       Top             =   3360
  34.       Width           =   1215
  35.    End
  36.    Begin CommandButton cmdDisplay 
  37.       Caption         =   "&Display"
  38.       Default         =   -1  'True
  39.       Height          =   495
  40.       Left            =   1440
  41.       TabIndex        =   0
  42.       Top             =   3360
  43.       Width           =   1215
  44.    End
  45.    Begin Label lblDisplay 
  46.       BorderStyle     =   1  'Fixed Single
  47.       Caption         =   "A demonstration of the AutoSize and WordWrap properties."
  48.       Height          =   255
  49.       Left            =   480
  50.       TabIndex        =   2
  51.       Top             =   720
  52.       Width           =   1695
  53.    End
  54. End
  55.  
  56. Sub cmdClose_Click ()
  57.    Unload Me    ' Unload this form.
  58. End Sub
  59.  
  60. Sub cmdDisplay_Click ()
  61. ' Reset the example
  62.     lblDisplay.AutoSize = False
  63.     lblDisplay.WordWrap = False
  64.     lblDisplay.Width = 1695
  65.     lblDisplay.Height = 255
  66. ' Check for WordWrap and Autosize
  67.     If chkWordWrap.Value = 1 Then
  68.         lblDisplay.WordWrap = True
  69.     End If
  70.     If chkAutoSize.Value = 1 Then
  71.         lblDisplay.AutoSize = True
  72.     End If
  73. End Sub
  74.  
  75.